COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		TITLE	TEST
C00003 ENDMK
C⊗;
	TITLE	TEST

AC1←1
AC2←2
AC3←3

REPEAT:	=1000000

START:	RESET
	MOVE	AC3,REPEAT
LOOP:				;
	LSHC	1,-=20		;; our lsb of LH → lsb of RH
	LSH	2,2		;; our msb of RH nuzzles up to it
	LSHC	1,=16		;; shove it all back in place
	SOJGE	AC3,LOOP	;; and loop
	EXIT			;

;   Total,Increment,Wait,PS,EBOX msec,Incr=
;      0:34'39,   0:03'54,   3:03'58,416,15679,3244

	END	START